home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / roster.spr < prev    next >
Encoding:
Text File  |  1994-07-11  |  17.1 KB  |  546 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/11/94             ROSTER.SPR                11:06:29 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("roster") ;
  45.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.PJX" ;
  46.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.SCX" ;
  47.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.MNX" ;
  48.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.PRG" ;
  49.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.FRX" ;
  50.     OR UPPER(WTITLE("ROSTER")) == "ROSTER.QPR"
  51.     DEFINE WINDOW roster ;
  52.         AT 3.000, 17.625 ;
  53.         SIZE 24.692,43.200 ;
  54.         TITLE "Roster" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         CLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM ;
  60.         COLOR RGB(,,,255,255,255)
  61. ENDIF
  62.  
  63. IF NOT WEXIST("controls") ;
  64.     OR UPPER(WTITLE("CONTROLS")) == "CONTROLS.PJX" ;
  65.     OR UPPER(WTITLE("CONTROLS")) == "CONTROLS.SCX" ;
  66.     OR UPPER(WTITLE("CONTROLS")) == "CONTROLS.MNX" ;
  67.     OR UPPER(WTITLE("CONTROLS")) == "CONTROLS.PRG" ;
  68.     OR UPPER(WTITLE("CONTROLS")) == "CONTROLS.FRX" ;
  69.     OR UPPER(WTITLE("CONTROLS")) == "CONTROLS.QPR"
  70.     DEFINE WINDOW controls ;
  71.         AT 9.333, 68.375 ;
  72.         SIZE 17.385,8.333 ;
  73.         FONT "MS Sans Serif", 8 ;
  74.         STYLE "B" ;
  75.         FLOAT ;
  76.         NOCLOSE ;
  77.         NOMINIMIZE ;
  78.         HALFHEIGHT ;
  79.         COLOR RGB(,,,192,192,192)
  80. ENDIF
  81.  
  82.  
  83. *       *********************************************************
  84. *       *                                                         
  85. *       *          ROSTER/Windows Setup Code - SECTION 2          
  86. *       *                                                         
  87. *       *********************************************************
  88. *
  89.  
  90. #REGION 1
  91. PUBLIC RosterRec, SearchDone
  92.  
  93. SearchDone = .F.
  94.  
  95. DEFINE WINDOW FOUND FROM 2,0 to 35, 88 ;
  96.     FONT '',8 ;
  97.     STYLE 'N' ;
  98.     TITLE "QUERY RESULTS" ;
  99.     CLOSE ;
  100.     GROW ;
  101.     FLOAT ;
  102.     
  103. HIDE WINDOW FOUND
  104.  
  105. IF mktable = .T.
  106.     SHOW WINDOW SRCH
  107. ENDIF
  108.  
  109.  
  110.  
  111. *       *********************************************************
  112. *       *                                                         
  113. *       *         CONTROL/Windows Setup Code - SECTION 2          
  114. *       *                                                         
  115. *       *********************************************************
  116. *
  117.  
  118. #REGION 2
  119. *#SECTION 1
  120. *
  121. * Screen description:
  122. * This screen is a UTILITY screen.  It may be combined with any other
  123. * screens.  All variables used by this screen have been declared REGIONAL to
  124. * encapsulate them (i.e., to avoid conflict with variables from other
  125. * screens).  All variables also have 'm.' prefix to avoid conflict with
  126. * 'unknown' database field names.
  127. *
  128. * Points of interest:
  129. * This screen has been designed to dim its buttons when they
  130. * are not appropritate (i.e., when at TOP dim < Top >, etc.)
  131. * Since TOP and BOTTOM operate within a given scope, if you wish to use this
  132. * screen in presence of any FILTERING (scope altering) conditions make sure
  133. * the control utility screen follows the other screen when you combine them.
  134. *
  135.  
  136. *#SECTION 2
  137. *REGIONAL m.choice, m.toprec, m.bottomrec, m.saverecno
  138. *PRIVATE m.quitting
  139. *m.quitting = .F.
  140. *m.choice = 6
  141.  
  142. *IF EOF()
  143. *    GO BOTTOM
  144. *ENDIF
  145.  
  146. *m.saverecno = RECNO()
  147. *GO TOP
  148. *m.toprec = RECNO()
  149. *GO BOTTOM
  150. *m.bottomrec = RECNO()
  151. *GO m.saverecno
  152.  
  153.  
  154.  
  155. *       *********************************************************
  156. *       *                                                         
  157. *       *              ROSTER/Windows Screen Layout               
  158. *       *                                                         
  159. *       *********************************************************
  160. *
  161.  
  162. #REGION 1
  163. IF WVISIBLE("roster")
  164.     ACTIVATE WINDOW roster SAME
  165. ELSE
  166.     ACTIVATE WINDOW roster NOSHOW
  167. ENDIF
  168. @ 2.846,2.600 GET M.Selectfld ;
  169.      PICTURE "@&N" ;
  170.     FROM fieldnms ;
  171.     SIZE 20.769,31.000 ;
  172.     DEFAULT 1 ;
  173.     FONT "MS Sans Serif", 8 ;
  174.     VALID _qrm0nt5yk()
  175. @ 0.846,2.400 SAY "Select a field to search by:" ;
  176.     FONT "MS Sans Serif", 10 ;
  177.     STYLE "BT"
  178.  
  179.  
  180.  
  181.  
  182. *       *********************************************************
  183. *       *                                                         
  184. *       *              CONTROL/Windows Screen Layout              
  185. *       *                                                         
  186. *       *********************************************************
  187. *
  188.  
  189. #REGION 2
  190. IF WVISIBLE("controls")
  191.     ACTIVATE WINDOW controls SAME
  192. ELSE
  193.     ACTIVATE WINDOW controls NOSHOW
  194. ENDIF
  195. @ 11.154,1.167 GET m.lchoice ;
  196.     PICTURE "@*BHN " + ;
  197.         (LOCFILE("remax\locate.bmp","BMP|ICO|PCT|ICN","Where is locate?")) ;
  198.     SIZE 2.462,5.833,0.667 ;
  199.     DEFAULT 1 ;
  200.     FONT "MS Sans Serif", 8 ;
  201.     STYLE "B" ;
  202.     VALID _qrm0nt6gl()
  203. @ 0.615,1.167 GET m.choice ;
  204.     PICTURE "@*BVN " + ;
  205.         (LOCFILE("tutorial\top.bmp","BMP|ICO|PCT|ICN","Where is top?")) + ";" + ;
  206.         (LOCFILE("remax\prior.bmp","BMP|ICO|PCT|ICN","Where is prior?")) + ";" + ;
  207.         (LOCFILE("tutorial\next.bmp","BMP|ICO|PCT|ICN","Where is next?")) + ";" + ;
  208.         (LOCFILE("tutorial\bottom.bmp","BMP|ICO|PCT|ICN","Where is bottom?")) ;
  209.     SIZE 2.462,5.833,0.000 ;
  210.     DEFAULT 1 ;
  211.     FONT "MS Sans Serif", 8 ;
  212.     STYLE "B" ;
  213.     VALID _qrm0nt6rn()
  214. @ 14.231,1.167 GET m.echoice ;
  215.     PICTURE "@*HN Exit" ;
  216.     SIZE 2.462,5.833,0.667 ;
  217.     DEFAULT 1 ;
  218.     FONT "MS Sans Serif", 8 ;
  219.     STYLE "B" ;
  220.     VALID _qrm0nt725()
  221.  
  222. IF NOT WVISIBLE("controls")
  223.     ACTIVATE WINDOW controls
  224. ENDIF
  225. IF NOT WVISIBLE("roster")
  226.     ACTIVATE WINDOW roster
  227. ENDIF
  228.  
  229.  
  230. READ CYCLE ;
  231.     WHEN _qrm0nt6as() ;
  232.     ACTIVATE _qrm0nt6aw()
  233.  
  234. RELEASE WINDOW controls
  235. RELEASE WINDOW roster
  236. SELECT (m.currarea)
  237.  
  238.  
  239. #REGION 0
  240.  
  241. SET READBORDER &rborder
  242.  
  243. IF m.talkstat = "ON"
  244.     SET TALK ON
  245. ENDIF
  246. IF m.compstat = "ON"
  247.     SET COMPATIBLE ON
  248. ENDIF
  249.  
  250.  
  251. *       *********************************************************
  252. *       *                                                         
  253. *       *               ROSTER/Windows Cleanup Code               
  254. *       *                                                         
  255. *       *********************************************************
  256. *
  257.  
  258. #REGION 1
  259. *
  260. *  PROCEDURE TO INITIATE SEARCH AND DISPLAY RESULTS
  261. *
  262.  
  263.  
  264. *       *********************************************************
  265. *       *                                                         
  266. *       *   ROSTER/Windows Supporting Procedures and Functions    
  267. *       *                                                         
  268. *       *********************************************************
  269. *
  270.  
  271. #REGION 1
  272. PROCEDURE INITSEARCH
  273.  
  274. DO SEARCHVAR IN SEARCH.PRG
  275. ACTIVATE WINDOW FOUND
  276. browse FIELDS Name, Unique, Bio, Offname, Offadd1 IN WINDOW FOUND ;
  277.     FONT 'MS Sans Serif', 8 STYLE 'N' ;
  278.     WHEN showgets()
  279. DO VARIABLE
  280. RETURN
  281.  
  282. *
  283. *  PROCEDURE TO REINITIALIZE ALL VARIABLES AFTER SEARCH
  284. *
  285. PROCEDURE VARIABLE
  286.  
  287. SLang1 = ' '
  288. SState = ' '
  289.  
  290. RETURN
  291.  
  292. *
  293. *
  294. *
  295. PROCEDURE SEARCHVAR
  296.  
  297. SET EXACT OFF
  298. CLOSE DATABASES
  299. ERASE TEMP.DBF
  300. USE ROSTER
  301.     
  302. set index to roster.cdx
  303.     
  304. *M.SLang1 = 'Finnish'
  305. DO CASE
  306.     CASE SLANG1 != ' ' AND SState != ' '
  307.         SELECT Name, Unique, RecNo FROM Roster INTO TABLE TEMP;
  308.             WHERE Roster.rostersta = UPPER(SState);
  309.             AND ((Roster.lang1 = SLANG1);
  310.             OR (Roster.lang2 = SLANG1);
  311.             OR (Roster.lang3 = SLANG1))
  312.     CASE SLANG1 = ' ' AND SState != ' '
  313.         Select Name, Unique, RecNo From Roster ;
  314.             INTO TABLE TEMP WHERE RosterSta = SState
  315.     CASE SLANG1 != ' ' AND SState = ' '
  316.         Select Name, Unique, RecNo From Roster ;
  317.             INTO TABLE TEMP WHERE (Lang1 = M.SLang1 OR ;
  318.             Lang2 = M.SLang1 OR Lang3 = M.SLang1)
  319. ENDCASE
  320. SearchDone = .T.
  321. RETURN
  322.  
  323. *
  324. * SHOWGETS - Invoked from BROWSE WHEN clause, refresh gets on the screen.
  325. *
  326. FUNCTION showgets
  327. SHOW GETS
  328. RETURN
  329.  
  330. *
  331. * REDISPLAY
  332. *
  333. PROCEDURE DIS
  334. ACTIVEATE WINDOW FOUND
  335. browse FIELDS Name, Unique, Bio, Offname, Offadd1 IN WINDOW FOUND ;
  336.     FONT 'MS Sans Serif', 8 STYLE 'N' ;
  337.     WHEN showgets()
  338. RETURN
  339.  
  340. *       *********************************************************
  341. *       *                                                         
  342. *       * _QRM0NT5YK           M.Selectfld VALID                  
  343. *       *                                                         
  344. *       * Function Origin:                                        
  345. *       *                                                         
  346. *       * From Platform:       Windows                            
  347. *       * From Screen:         ROSTER,     Record Number:    2    
  348. *       * Variable:            M.Selectfld                        
  349. *       * Called By:           VALID Clause                       
  350. *       * Object Type:         List                               
  351. *       * Snippet Number:      1                                  
  352. *       *                                                         
  353. *       *********************************************************
  354. *
  355. FUNCTION _qrm0nt5yk     &&  M.Selectfld VALID
  356. #REGION 1
  357. SET EXACT OFF
  358. DO CASE
  359.     CASE Selectfld = 'Civic Activities'
  360.         DO CIVIC.SPR
  361.     CASE Selectfld = 'Commercial Subspecialties'
  362.         DO COMM.SPR
  363.     CASE Selectfld = 'Hobbies/Interests'
  364.         DO HOBBIE.SPR
  365.     CASE Selectfld = 'Miscellaneous'
  366.         DO MISC.SPR
  367.     CASE Selectfld = 'Associate Name'
  368.         DO NAME.SPR
  369.     CASE Selectfld = 'Average Sales Price'
  370.         DO SALES.SPR
  371.     CASE Selectfld = 'City'
  372.         DO CITY.SPR
  373.     CASE Selectfld = 'Country'
  374.         DO COUNTRY.SPR
  375.     CASE Selectfld = 'Designations'
  376.         DO DESIG.SPR
  377.     CASE Selectfld = 'Licensed'
  378.         DO JOINLI.SPR
  379.     CASE Selectfld = 'Joined RE/MAX'
  380.         DO JOINLI.SPR
  381.     CASE Selectfld = 'HQ Company Staffs'
  382.         DO HQ.SPR
  383.     CASE Selectfld = 'Langauge'
  384.         DO LANG.SPR
  385.     CASE Selectfld = 'Zip/Postal Code'
  386.         DO ZIP.SPR
  387.     CASE Selectfld = 'Office ...'
  388.         DO OFFICE.SPR
  389.     CASE Selectfld = 'State/Province'
  390.         DO STATE.SPR    
  391. ENDCASE
  392.  
  393. *       *********************************************************
  394. *       *                                                         
  395. *       * _QRM0NT6GL           m.lchoice VALID                    
  396. *       *                                                         
  397. *       * Function Origin:                                        
  398. *       *                                                         
  399. *       * From Platform:       Windows                            
  400. *       * From Screen:         CONTROL,     Record Number:    2   
  401. *       * Variable:            m.lchoice                          
  402. *       * Called By:           VALID Clause                       
  403. *       * Object Type:         Push Button                        
  404. *       * Snippet Number:      2                                  
  405. *       *                                                         
  406. *       *********************************************************
  407. *
  408. FUNCTION _qrm0nt6gl     &&  m.lchoice VALID
  409. #REGION 2
  410. DO INITSEARCH
  411.  
  412. *       *********************************************************
  413. *       *                                                         
  414. *       * _QRM0NT6RN           m.choice VALID                     
  415. *       *                                                         
  416. *       * Function Origin:                                        
  417. *       *                                                         
  418. *       * From Platform:       Windows                            
  419. *       * From Screen:         CONTROL,     Record Number:    3   
  420. *       * Variable:            m.choice                           
  421. *       * Called By:           VALID Clause                       
  422. *       * Object Type:         Push Button                        
  423. *       * Snippet Number:      3                                  
  424. *       *                                                         
  425. *       *********************************************************
  426. *
  427. FUNCTION _qrm0nt6rn     &&  m.choice VALID
  428. #REGION 2
  429. DO CASE
  430. CASE m.choice = 1
  431.     GO TOP    
  432.     SHOW GET m.choice, 3 ENABLE
  433.     SHOW GET m.choice, 1 DISABLE
  434.     SHOW GET m.choice, 2 DISABLE
  435.     SHOW GET m.choice, 4 ENABLE
  436. CASE m.choice = 2
  437.     SKIP -1
  438.     IF BOF() OR RECNO() = m.toprec
  439.         GO TOP
  440.         SHOW GET m.choice, 2 DISABLE
  441.         SHOW GET m.choice, 1 DISABLE
  442.     ELSE
  443.         IF RECNO() < m.bottomrec
  444.             SHOW GET m.choice, 3 ENABLE
  445.             SHOW GET m.choice, 4 ENABLE
  446.         ENDIF
  447.     ENDIF    
  448. CASE m.choice = 3
  449.     SKIP 1
  450.     IF EOF() OR RECNO() = m.bottomrec
  451.         GO BOTTOM
  452.         SHOW GET m.choice, 3 DISABLE
  453.         SHOW GET m.choice, 4 DISABLE
  454.     ELSE
  455.         IF RECNO() > m.toprec
  456.             SHOW GET m.choice, 2 ENABLE
  457.             SHOW GET m.choice, 1 ENABLE
  458.         ENDIF
  459.     ENDIF
  460. CASE m.choice = 4
  461.     GO BOTTOM
  462.     SHOW GET m.choice, 3 DISABLE
  463.     SHOW GET m.choice, 2 ENABLE
  464.     SHOW GET m.choice, 1 ENABLE
  465.     SHOW GET m.choice, 4 DISABLE
  466. ENDCASE
  467. SHOW GETS
  468.  
  469. *       *********************************************************
  470. *       *                                                         
  471. *       * _QRM0NT725           m.echoice VALID                    
  472. *       *                                                         
  473. *       * Function Origin:                                        
  474. *       *                                                         
  475. *       * From Platform:       Windows                            
  476. *       * From Screen:         CONTROL,     Record Number:    4   
  477. *       * Variable:            m.echoice                          
  478. *       * Called By:           VALID Clause                       
  479. *       * Object Type:         Push Button                        
  480. *       * Snippet Number:      4                                  
  481. *       *                                                         
  482. *       *********************************************************
  483. *
  484. FUNCTION _qrm0nt725     &&  m.echoice VALID
  485. #REGION 2
  486. m.idlequit = .T.    
  487. m.quitting = .T.
  488. CLEAR READ ALL
  489. RELEASE WINDOW FOUND
  490.  
  491. *       *********************************************************
  492. *       *                                                         
  493. *       * _QRM0NT6AS           Read Level When                    
  494. *       *                                                         
  495. *       * Function Origin:                                        
  496. *       *                                                         
  497. *       *                                                         
  498. *       * From Platform:       Windows                            
  499. *       * From Screen:         Multiple Screens                   
  500. *       * Called By:           READ Statement                     
  501. *       * Snippet Number:      5                                  
  502. *       *                                                         
  503. *       *********************************************************
  504. *
  505. FUNCTION _qrm0nt6as     && Read Level When
  506. *
  507. * When Code from screen: ROSTER
  508. *
  509. #REGION 1
  510. ON KEY LABEL F2 DO saylevel
  511. ON KEY LABEL F9 DO VIEW.PRG
  512. ON KEY LABEL F10 DO view2.prg
  513. ON KEY LABEL F8 browse FIELDS Name, Unique, Bio IN WINDOW FOUND ;
  514.     FONT 'MS Sans Serif', 8 STYLE 'N' ;
  515.     WHEN showgets()
  516. SHOW GETS
  517.  
  518.  
  519.  
  520. *       *********************************************************
  521. *       *                                                         
  522. *       * _QRM0NT6AW           Read Level Activate                
  523. *       *                                                         
  524. *       * Function Origin:                                        
  525. *       *                                                         
  526. *       *                                                         
  527. *       * From Platform:       Windows                            
  528. *       * From Screen:         Multiple Screens                   
  529. *       * Called By:           READ Statement                     
  530. *       * Snippet Number:      6                                  
  531. *       *                                                         
  532. *       *********************************************************
  533. *
  534. FUNCTION _qrm0nt6aw     && Read Level Activate
  535. *
  536. * Activate Code from screen: ROSTER
  537. *
  538. #REGION 1
  539. SHOW WINDOW CONTROLS
  540.  
  541.  
  542. *
  543. * Activate Code from screen: CONTROL
  544. *
  545. #REGION 2
  546. SHOW WINDOW ROSTER